home *** CD-ROM | disk | FTP | other *** search
/ Robotics & Artificial Int…3 (Professional Edition) / Robotics & Artificial Intelligence Tools 2003 (Professional Edition).iso / neural network tool and application / nsinstall.exe / data1.cab / Demos_Files / OLE_Automation / PrepareToTestCode.txt < prev    next >
Encoding:
Text File  |  2002-03-08  |  777 b   |  26 lines
  1. Private Sub cmdPrepareToTest_Click()
  2.  
  3.     Dim NSApp As Object
  4.     Dim NSBB As Object
  5.         
  6.     Set NSApp = CreateObject("NeuroSolutions.Application")
  7.     Set NSBB = NSApp.activeBreadboard
  8.     
  9.     NSBB.send "controlBackprop. freeALL (  )"
  10.     NSBB.deleteObject "inputFile"
  11.     
  12.     NSBB.stampOnAndMove "OLEInput", "inputAxon"
  13.     NSBB.send "oLEInput. setActiveAccessPoint ( ""Pre-Activity"" )"
  14.     
  15.     NSBB.stampOnAndMove "MatrixViewer", "outputAxon"
  16.     NSBB.send "matrixViewer. setName ( ""trainingCostProbe"" )"
  17.     NSBB.send "trainingCostProbe. setActiveAccessPoint ( ""Activity"" )"
  18.     NSBB.send "trainingCostProbe. openEngineWindow (  )"
  19.  
  20.     NSBB.send "control. setEpochs ( 1 )"
  21.     NSBB.send "control.setLearning(FALSE)"
  22.  
  23.     End
  24.  
  25. End Sub
  26.